home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 December / PCWorld_2006-12_cd.bin / v cisle / pcwann / pcwAnnoyances.exe / pcwAnnoyances.hta
Text File  |  2006-10-19  |  49KB  |  1,300 lines
  1. <HTML>
  2.  <HEAD>
  3.   <TITLE>Skript PC WORLDu: Nastavenφ obt∞₧ujφcφch funkcφ ve Windows XP - verze 1.1</TITLE>
  4.   <HTA:APPLICATION ID="hta3" 
  5.    APPLICATIONNAME="pcwAnnoyances" 
  6.    BORDER = "dialog"
  7.    CAPTION = "yes"
  8.    SHOWINTASKBAR = "yes"
  9.    SINGLEINSTANCE = "yes"
  10.    SYSMENU = "yes"
  11.    WINDOWSTATE = "normal"
  12.    INNERBORDER = "no"
  13.    MAXIMIZEBUTTON = "no"
  14.    MINIMIZEBUTTON = "yes"
  15.    CONTEXTMENU = "no"
  16.    BORDERSTYLE = "complex">
  17.    
  18.    <STYLE type="text/css">
  19.    
  20. body {    scrollbar-arrow-color: #000000;
  21.     font-family:Verdana;
  22.     font-style:normal;
  23.     font-size:10;
  24.     background-color:Buttonface}
  25.  
  26. DIV {    font-family:Verdana;
  27.     font-style:normal;
  28.     font-size:12;}
  29.  
  30.    </STYLE>
  31.   <SCRIPT LANGUAGE=vbscript>
  32.  
  33. '|--------------------------------------------------------------------------------------------------|'
  34.  
  35. Dim myfiles, myshell, x, y1, y2, y3, y4, y5, y6, y7
  36. ReDim SStArr(0)
  37. Set myfiles = CreateObject("Scripting.FileSystemObject")
  38. Set myshell = CreateObject("Wscript.Shell")
  39. Set c = MyShell.Environment("PROCESS")
  40.     Tempdir=c("Temp")
  41.     Windir=c("Systemroot")
  42.     Userprofile=c("Userprofile")
  43. ExpAdv = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\"
  44. Dim UserprefsBin(3)
  45. Dim Userprefs
  46. Dim StreamSettings
  47. Dim Limited
  48. CreateVBArray = Userprefs
  49. CreateVbArray = StreamSettings
  50.  
  51. '|--------------------------------------------------------------------------------------------------|'
  52.  
  53. Sub SubInitFenster
  54.  
  55. if IS_Admin = False then 
  56.   Limited = 1
  57.   document.title = "Skript PC WORLDu: Nastavenφ obt∞₧ujφcφch funkcφ ve Windows XP - verze 1.1 - Re₧im pro b∞₧nΘ u₧ivatele"
  58. else
  59.   Limited = 0
  60.   document.title = "Skript PC WORLDu: Nastavenφ obt∞₧ujφcφch funkcφ ve Windows XP - verze 1.1 - Re₧im pro sprßvce systΘmu"
  61. end if
  62. Label.Value = ""
  63.   UserPrefs = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask")
  64.   for n = 0 to 3
  65.     m = 1
  66.     UserprefsBin(n) = ""
  67.     do
  68.       calc = UserPrefs(n) mod 2
  69.       Halb = Int(UserPrefs(n)/2)
  70.       UserPrefs(n) = Halb
  71.       UserprefsBin(n) = calc & UserprefsBin(n)
  72.       m = m+1
  73.     loop until m=9
  74.   next
  75.     on error resume next
  76.     window.resizeTo 1200, 600
  77.     Ext = Myshell.regread(ExpAdv & "HideFileExt") 'Dword -> 0, 1
  78.     if Ext = "" then 
  79.         Ext = 1
  80.         myshell.regwrite ExpAdv & "HideFileExt", Ext, "REG_DWORD"
  81.     end if
  82.     if Ext = 0 then
  83.         document.all.Item("O1").Checked = True
  84.     else
  85.         document.all.Item("O1").Checked = False
  86.     end if
  87.     
  88.     Hid = Myshell.regread(ExpAdv & "Hidden") 'Dword -> 1, 2
  89.     if Hid = "" then 
  90.         Hid = 2
  91.         myshell.regwrite ExpAdv & "Hidden", Hid, "REG_DWORD"
  92.     end if
  93.     if Hid = 1 then
  94.         document.all.Item("O2").Checked = True
  95.     else
  96.         document.all.Item("O2").Checked = False
  97.     end if
  98.     
  99.     sHid = Myshell.regread(ExpAdv & "ShowSuperHidden") 'Dword -> 1, 0
  100.     if sHid = "" then 
  101.         sHid = 0
  102.         myshell.regwrite ExpAdv & "ShowSuperHidden", sHid, "REG_DWORD"
  103.     end if
  104.     if sHid = 1 then
  105.         document.all.Item("O4").Checked = True
  106.     else
  107.         document.all.Item("O4").Checked = False
  108.     end if
  109.     
  110.     SysO = Myshell.regread(ExpAdv & "WebViewBarricade") 'Dword -> 1, 0
  111.     If SysO = "" then 
  112.         SysO = 0
  113.         myshell.regwrite ExpAdv & "WebViewBarricade", SysO, "REG_DWORD"
  114.     end if
  115.     if SysO = 1 then
  116.         document.all.Item("O5").Checked = True
  117.     else
  118.         document.all.Item("O5").Checked = False
  119.     end if
  120.     
  121.     ksea = Myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\Use Search Asst") 'Zeichenfolge -> no, yes
  122.     if ksea = "" then 
  123.         ksea = "yes"
  124.         myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\Use Search Asst", ksea, "REG_SZ"
  125.     end if
  126.     if ksea = "no" then
  127.         document.all.Item("O3").Checked = True
  128.     else
  129.         document.all.Item("O3").Checked = False
  130.     end if
  131.     
  132.     Ball = Myshell.regread(ExpAdv & "EnableBalloonTips") 'Dword -> 0, 1
  133.     if Ball = "" then 
  134.         Ball = 1
  135.         myshell.regwrite ExpAdv & "EnableBalloonTips", Ball, "REG_DWORD"
  136.     end if
  137.     if Ball = 0 then
  138.         document.all.Item("O6").Checked = True
  139.     else
  140.         document.all.Item("O6").Checked = False
  141.     end if
  142.     
  143.     Pers = Myshell.regread(ExpAdv & "IntelliMenus") 'Dword -> 0, 1
  144.     if Pers = "" then 
  145.         Pers = 1
  146.         myshell.regwrite ExpAdv & "IntelliMenus", Pers, "REG_DWORD"
  147.     end if
  148.     if Pers = 0 then
  149.         document.all.Item("O7").Checked = True
  150.     else
  151.         document.all.Item("O7").Checked = False
  152.     end if
  153.     
  154.     SSt = Myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellState") 'Bin 
  155.     for n = 0  to ubound(SSt)
  156.         ReDim Preserve SStArr(n)
  157.         hWert = Hex(SSt(n))
  158.         if len(hWert) = 1 then
  159.             SStArr(n) = "0" & hWert
  160.         else
  161.             SStArr(n) = hWert
  162.         end if
  163.     next
  164.  
  165.     if SStArr(32) = "00" then 
  166.         document.all.Item("O8").Checked = True
  167.     else
  168.         document.all.Item("O8").Checked = False
  169.     end if
  170.     
  171.     Allg = Myshell.regread(ExpAdv & "WebView") 'Dword -> 0, 1
  172.     if Allg = "" then 
  173.         Allg = 0
  174.         myshell.regwrite ExpAdv & "WebView", Allg, "REG_DWORD"
  175.     end if
  176.     if Allg = 0 then
  177.         document.all.Item("O10").Checked = True
  178.     else
  179.         document.all.Item("O10").Checked = False
  180.     end if    
  181.     
  182.     kLog = MyShell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType") 'Dword 0, 1
  183.     if kLog = 0 then
  184.         document.all.Item("O9").Checked = True
  185.     else
  186.         document.all.Item("O9").Checked = False
  187.     end if
  188.     if limited = 1 then document.all.Item("O9").Disabled = True
  189.     
  190.     kDesk = MyShell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\ThemeActive") 'Zeichenfolge 0, 1
  191.     x = kDesk
  192.   if kDesk = 0 then
  193.         document.all.Item("O11").Checked = True
  194.     else
  195.         document.all.Item("O11").Checked = False
  196.     end if
  197.     
  198.     kAnim = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\MinAnimate")
  199.     if kAnim = 0 then
  200.      document.all.Item("O14").Checked = True
  201.     else
  202.      document.all.Item("O14").Checked = False
  203.     end if
  204.     
  205.     kCleanup = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz\NoRun")
  206.     if kCleanup = 1 then
  207.      document.all.Item("O15").Checked = True
  208.     else
  209.      document.all.Item("O15").Checked = False
  210.     end if
  211.     
  212.     kLowSpace = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLowDiskSpaceChecks")
  213.     if kLowSpace = 1 then
  214.      document.all.Item("O16").Checked = True
  215.     else
  216.      document.all.Item("O16").Checked = False
  217.     end if
  218.     if limited = 1 then document.all.Item("O16").Disabled = True
  219.     
  220.     kLinks = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName")
  221.     if kLinks = "Links" then
  222.      document.all.Item("O17").Checked = False
  223.     else
  224.      document.all.Item("O17").Checked = True
  225.     end if
  226.     
  227.   cleartype = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\FontSmoothing")
  228.   if cleartype = 2 then
  229.       document.all.Item("O18").Checked = True
  230.     else
  231.      document.all.Item("O18").Checked = False
  232.     end if
  233.     
  234.     kHideDev = myshell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_NONPRESENT_DEVICES")
  235.     if kHideDev = 1 then
  236.         document.all.Item("O19").Checked = True
  237.     else
  238.      document.all.Item("O19").Checked = False
  239.     end if
  240.     if limited = 1 then document.all.Item("O19").Disabled = True
  241.     
  242.     DetailDev = myshell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_DETAILS")
  243.     if DetailDev = 1 then
  244.         document.all.Item("O23").Checked = True
  245.     else
  246.      document.all.Item("O23").Checked = False
  247.     end if
  248.     if limited = 1 then document.all.Item("O23").Disabled = True
  249.     
  250.     kDevErr = myshell.Regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\NoPopupsOnBoot")
  251.     if kDevErr = 1 then
  252.         document.all.Item("O20").Checked = True
  253.     else
  254.      document.all.Item("O20").Checked = False
  255.     end if
  256.     if limited = 1 then document.all.Item("O20").Disabled = True
  257.     
  258.     kSharing = myshell.regread("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\ForceGuest")
  259.     if kSharing = 0 then
  260.         document.all.Item("O21").Checked = True
  261.     else
  262.      document.all.Item("O21").Checked = False
  263.     end if
  264.     if limited = 1 then document.all.Item("O21").Disabled = True
  265.     
  266.     kErrRep = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport")
  267.     if kErrRep = 0 then
  268.      document.all.Item("O24").Checked = True
  269.     else
  270.      document.all.Item("O24").Checked = False
  271.     end if
  272.     if limited = 1 then document.all.Item("O24").Disabled = True
  273.     
  274.     google = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Search Page")
  275.     if instr(1, lcase(google), "www.google.de")=0 then
  276.      document.all.Item("O22").Checked = False
  277.     else
  278.      document.all.Item("O22").Checked = True
  279.      document.all.Item("O22").Disabled = True
  280.     end if
  281.     if limited = 1 then document.all.Item("O22").Disabled = True
  282.     
  283.     kWebServ = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\NoInternetOpenWith")
  284.     if kWebServ = 1 then
  285.      document.all.Item("O25").Checked = True
  286.     else
  287.      document.all.Item("O25").Checked = False
  288.     end if
  289.     if limited = 1 then document.all.Item("O25").Disabled = True
  290.     
  291.     kListShadow = myshell.regread(ExpAdv & "ListviewShadow")
  292.     if kListShadow = 0 then
  293.      document.all.Item("O26").Checked = True
  294.     else
  295.      document.all.Item("O26").Checked = False
  296.     end if
  297.     
  298.     kListAlpha = myshell.regread(ExpAdv & "ListviewAlphaSelect")
  299.     if kListAlpha = 0 then
  300.      document.all.Item("O27").Checked = True
  301.     else
  302.      document.all.Item("O27").Checked = False
  303.     end if
  304.     
  305.     kWinDrag = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\DragFullWindows")
  306.     if kWinDrag = 0 then
  307.      document.all.Item("O28").Checked = True
  308.     else
  309.      document.all.Item("O28").Checked = False
  310.     end if
  311.     
  312.     kFoldBack = myshell.regread(ExpAdv & "ListviewWatermark")
  313.     if kFoldBack = 0 then
  314.      document.all.Item("O29").Checked = True
  315.     else
  316.      document.all.Item("O29").Checked = False
  317.     end if
  318.     
  319.     kMouseShadow = Mid(UserPrefsBin(1), 3, 1)
  320.     y1 = kMouseShadow
  321.     if kMouseShadow = 0 then
  322.      document.all.Item("O30").Checked = True
  323.     else
  324.      document.all.Item("O30").Checked = False
  325.     end if
  326.     
  327.     kMenuShow = Mid(UserPrefsBin(1), 6, 1)
  328.     y2 = kMenuShow
  329.     if kMenuShow = 0 then
  330.      document.all.Item("O31").Checked = True
  331.     else
  332.      document.all.Item("O31").Checked = False
  333.     end if
  334.     
  335.     kMenuView = Mid(UserPrefsBin(0), 7, 1)
  336.     y3 = kMenuView
  337.     if kMenuView = 0 then
  338.      document.all.Item("O32").Checked = True
  339.     else
  340.      document.all.Item("O32").Checked = False
  341.     end if
  342.     
  343.     kMenuShadow = Mid(UserPrefsBin(2), 6, 1)
  344.     y4 = kMenuShadow
  345.     if kMenuShadow = 0 then
  346.      document.all.Item("O33").Checked = True
  347.     else
  348.      document.all.Item("O33").Checked = False
  349.     end if
  350.     
  351.     kKombField = Mid(UserPrefsBin(0), 6, 1)
  352.     y5 = kKombField
  353.     if kKombField = 0 then
  354.      document.all.Item("O34").Checked = True
  355.     else
  356.      document.all.Item("O34").Checked = False
  357.     end if
  358.     
  359.     kOptList = Mid(UserPrefsBin(0), 5, 1)
  360.     y6 = kOptList
  361.     if kOptList = 0 then
  362.      document.all.Item("O35").Checked = True
  363.     else
  364.      document.all.Item("O35").Checked = False
  365.     end if
  366.     
  367.     kQuickView = Mid(UserPrefsBin(1), 5, 1)
  368.     y7 = kQuickView
  369.     if kQuickView = 0 then
  370.      document.all.Item("O36").Checked = True
  371.     else
  372.      document.all.Item("O36").Checked = False
  373.     end if
  374.     
  375.     kTask = myshell.regread(ExpAdv & "TaskbarAnimations")
  376.     if kTask = 0 then
  377.      document.all.Item("O37").Checked = True
  378.     else
  379.      document.all.Item("O37").Checked = False
  380.     end if
  381.     
  382.     kVerk = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Link")
  383.     if kVerk(0) = 28 then
  384.          document.all.Item("O12").Checked = False
  385.     else
  386.      document.all.Item("O12").Checked = True
  387.     end if
  388.     
  389.     kBeep = myshell.regread("HKEY_CURRENT_USER\Control Panel\Sound\Beep")
  390.     if lcase(kBeep) = "yes" then
  391.          document.all.Item("O13").Checked = False
  392.     else
  393.      document.all.Item("O13").Checked = True
  394.     end if
  395.     Err.clear
  396.     kVerkPfeil = myshell.regread("HKEY_CLASSES_ROOT\LNKFILE\IsShortcut")
  397.     if Err.Number = 0 then
  398.          document.all.Item("O38").Checked = False
  399.     else
  400.      document.all.Item("O38").Checked = True
  401.     end if
  402.     if limited = 1 then document.all.Item("O38").Disabled = True
  403.     
  404.     'if not Limited = 1 then
  405.     StreamSettings = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Settings")
  406.   if StreamSettings(4) = 4 then
  407.      document.all.Item("O39").Checked = True
  408.      document.all.Item("O39").Disabled = True
  409.     else
  410.      document.all.Item("O39").Checked = False
  411.     end if
  412.     'else
  413.     ' document.all.Item("O39").Disabled = True
  414.     'end if
  415.     
  416.     Err.Clear
  417.   Test = myshell.Regread("HKEYNotAKey\")
  418.   sDescription = Replace(Err.Description, "HKEYNotAKey\", "")
  419.   Err.Clear
  420.   Bags = myshell.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags\2\Shell\")
  421.   if sDescription <> Replace(Err.Description, "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags\2\Shell\", "") then
  422.      document.all.Item("O40").Disabled = False
  423.      document.all.Item("O40").Checked = False
  424.     else
  425.      document.all.Item("O40").Checked = True
  426.      document.all.Item("O40").Disabled = True
  427.     end if
  428.     
  429.     Recovery = myshell.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand")
  430.   if Recovery = 1 then
  431.      document.all.Item("O41").Checked = True
  432.     else
  433.      document.all.Item("O41").Checked = False
  434.     end if
  435.     if limited = 1 then document.all.Item("O41").Disabled = True
  436.     
  437.     Submarkthechecked
  438.     
  439. End Sub
  440.  
  441. '|--------------------------------------------------------------------------------------------------|'
  442.  
  443. Function IS_Admin
  444.   IS_Admin = false
  445.   On Error Resume Next
  446.   myShell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Beep\Admin\","1","REG_SZ"
  447.   myShell.RegDelete "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Beep\Admin\"
  448.   IF Err.Number = 0 THEN
  449.     IS_Admin = true
  450.   END If
  451.   On Error GoTo 0
  452. End Function 
  453.  
  454. '|--------------------------------------------------------------------------------------------------|'
  455.  
  456. Sub SubSet
  457. On error resume next
  458. Set Logme = Myfiles.OpentextFile(Tempdir & "\" & "Error.Log", 2, True)
  459. UserPrefs = myshell.regread("HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask")
  460.     if document.all.Item("O1").Checked then
  461.         Ext = 0
  462.     else
  463.         Ext = 1
  464.     end if
  465.     myshell.regwrite ExpAdv & "HideFileExt", Ext, "REG_DWORD"
  466.     
  467.     if document.all.Item("O2").Checked then
  468.         Hid = 1
  469.     else
  470.         Hid = 2
  471.     end if
  472.     myshell.regwrite ExpAdv & "Hidden", Hid, "REG_DWORD"
  473.     if not err.number = 0 then
  474.      Logme.writeline Err.Description
  475.      Err.clear
  476.     end if
  477.     
  478.     if document.all.Item("O3").Checked then
  479.         ksea = "no"
  480.     else
  481.         ksea = "yes"
  482.     end if
  483.     myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\Use Search Asst", ksea, "REG_SZ"
  484.     if not err.number = 0 then
  485.      Logme.writeline Err.Description
  486.      Err.clear
  487.     end if
  488.     
  489.     if document.all.Item("O4").Checked then
  490.         sHid = 1
  491.     else
  492.         sHid = 0
  493.     end if
  494.     myshell.regwrite ExpAdv & "ShowSuperHidden", sHid, "REG_DWORD"
  495.     if not err.number = 0 then
  496.      Logme.writeline Err.Description
  497.      Err.clear
  498.     end if
  499.     
  500.     if document.all.Item("O5").Checked then
  501.         SysO = 1
  502.     else
  503.         SysO = 0
  504.     end if
  505.     myshell.regwrite ExpAdv & "WebViewBarricade", SysO, "REG_DWORD"
  506.     if not err.number = 0 then
  507.      Logme.writeline Err.Description
  508.      Err.clear
  509.     end if
  510.         
  511.     if document.all.Item("O6").Checked then
  512.         Ball = 0
  513.     else
  514.         Ball = 1
  515.     end if
  516.     myshell.regwrite ExpAdv & "EnableBalloonTips", Ball, "REG_DWORD"
  517.     if not err.number = 0 then
  518.      Logme.writeline Err.Description
  519.      Err.clear
  520.     end if
  521.         
  522.     if document.all.Item("O7").Checked then
  523.         Pers = 0
  524.     else
  525.         Pers = 1
  526.     end if
  527.     myshell.regwrite ExpAdv & "IntelliMenus", Pers, "REG_DWORD"
  528.     if not err.number = 0 then
  529.      Logme.writeline Err.Description
  530.      Err.clear
  531.     end if
  532.         
  533.     if document.all.Item("O8").Checked then
  534.         SStArr(32) = "00"
  535.     else
  536.         SStArr(32) = "02"
  537.     end if
  538.     Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "ShellState.reg", 2, True)
  539.     FWrite.Writeline "REGEDIT4"
  540.     FWrite.Writeline VBCR
  541.     FWrite.Writeline "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]"
  542.     FWrite.Write Chr(34) & "ShellState" & chr(34) & "=hex:"
  543.     for n = 0 to Ubound(SStArr)-1
  544.         FWrite.Write SStArr(n) & ","                    
  545.     next
  546.     FWrite.Write SStArr(Ubound(SStArr))
  547.     Fwrite.Close
  548.     ret = Myshell.Run("regedit /s " & Tempdir & "\" & "ShellState.reg", 0, True)
  549.     ret = MyFiles.DeleteFile(Tempdir & "\" & "ShellState.reg", true)
  550.     if not err.number = 0 then
  551.      Logme.writeline Err.Description
  552.      Err.clear
  553.     end if
  554.         
  555.     if document.all.Item("O9").Checked then
  556.         kLog = 0
  557.         Mult = 0
  558.     else
  559.         kLog = 1
  560.         Mult = 1
  561.     end if
  562.     if not limited = 1 then
  563.      myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType", kLog, "REG_DWORD"
  564.      myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\AllowMultipleTSSessions", Mult, "REG_DWORD"
  565.   end if     
  566.     if not err.number = 0 then
  567.      Logme.writeline Err.Description
  568.      Err.clear
  569.     end if
  570.         
  571.     if document.all.Item("O10").Checked then
  572.         Allg = 0
  573.     else
  574.         Allg = 1
  575.     end if
  576.     myshell.regwrite ExpAdv & "WebView", Allg, "REG_DWORD"
  577.     if not err.number = 0 then
  578.      Logme.writeline Err.Description
  579.      Err.clear
  580.     end if
  581.         
  582.     if document.all.Item("O11").Checked and x = 1 then
  583.         ret = myshell.run(chr(34) & windir & "\Resources\Themes\Windows Classic.theme" & chr(34), 1, True)
  584.     elseif not document.all.Item("O11").checked and x = 0 then
  585.         ret = myshell.run(windir & "\resources\Themes\Luna.theme", 1, True)
  586.     end if
  587.     if not err.number = 0 then
  588.      Logme.writeline Err.Description
  589.      Err.clear
  590.     end if
  591.         
  592.     if document.all.Item("O14").Checked then
  593.      kAnim = 0
  594.     else
  595.      kAnim = 1
  596.     end if
  597.     myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\MinAnimate", kAnim, "REG_SZ"
  598.     if not err.number = 0 then
  599.      Logme.writeline Err.Description
  600.      Err.clear
  601.     end if
  602.         
  603.     if document.all.Item("O15").Checked then
  604.      kCleanup = 1
  605.     else
  606.      kCleanup = 0
  607.     end if
  608.     myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz\NoRun", kCleanup, "REG_DWORD"
  609.     if not err.number = 0 then
  610.      Logme.writeline Err.Description
  611.      Err.clear
  612.     end if
  613.         
  614.     if document.all.Item("O16").Checked then
  615.      kLowSpace = 1
  616.     else
  617.      kLowSpace = 0
  618.     end if
  619.     if not limited = 1 then
  620.     myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLowDiskSpaceChecks", kLowSpace, "REG_DWORD"
  621.     end if
  622.   if not err.number = 0 then
  623.      Logme.writeline Err.Description
  624.      Err.clear
  625.     end if
  626.         
  627.     if document.all.Item("O17").Checked then
  628.      myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName", "", "REG_SZ"
  629.      ret = myshell.run("cmd /c rd /q /s " & chr(34) & Userprofile & "\Favoriten\Links\", 0, True)
  630.     else
  631.     myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName", "Links", "REG_SZ"
  632.   end if
  633.     if not err.number = 0 then
  634.      Logme.writeline Err.Description
  635.      Err.clear
  636.     end if
  637.         
  638.     if document.all.Item("O18").Checked then
  639.      cleartype = 2
  640.     else
  641.      cleartype =  0
  642.     end if
  643.     myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\FontSmoothing", cleartype, "REG_SZ"
  644.     myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\FontSmoothingType", cleartype, "REG_DWORD"
  645.     if not err.number = 0 then
  646.      Logme.writeline Err.Description
  647.      Err.clear
  648.     end if
  649.         
  650.     if document.all.Item("O19").Checked then
  651.      kHideDev = 1
  652.     else
  653.      kHideDev = 0
  654.     end if
  655.     if not limited = 1 then
  656.   myshell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_NONPRESENT_DEVICES", kHideDev, "REG_SZ"
  657.     end if
  658.   if not err.number = 0 then
  659.      Logme.writeline Err.Description
  660.      Err.clear
  661.     end if
  662.         
  663.     if document.all.Item("O23").Checked then
  664.      DetailDev = 1
  665.     else
  666.      DetailDev = 0
  667.     end if
  668.     if not limited = 1 then
  669.     myshell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_DETAILS", DetailDev, "REG_SZ"
  670.     end if
  671.   if not err.number = 0 then
  672.      Logme.writeline Err.Description
  673.      Err.clear
  674.     end if
  675.         
  676.     if document.all.Item("O20").Checked then
  677.      kDevErr = 1
  678.     else
  679.      kDevErr = 0
  680.     end if
  681.     if not limited = 1 then
  682.     myshell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\NoPopupsOnBoot", kDevErr, "REG_DWORD"
  683.     end if
  684.   if not err.number = 0 then
  685.      Logme.writeline Err.Description
  686.      Err.clear
  687.     end if
  688.         
  689.     if document.all.Item("O21").Checked then
  690.      kSharing = 0
  691.     else
  692.      kSharing = 1
  693.     end if
  694.     if not limited = 1 then
  695.     myshell.regwrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\ForceGuest", kSharing, "REG_DWORD"
  696.     end if
  697.   if not err.number = 0 then
  698.      Logme.writeline Err.Description
  699.      Err.clear
  700.     end if
  701.         
  702.     if document.all.Item("O22").Checked and not limited = 1 then
  703.      myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Search Page", "http://www.google.com", "REG_SZ"
  704.      myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Search Bar", "http://www.google.com/ie", "REG_SZ"
  705.      myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Use Search Asst", "no", "REG_SZ"
  706.      myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchURL\", "http://www.google.com/keyword/%s", "REG_SZ"
  707.    myshell.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchURL\provider", "gogl", "REG_SZ"
  708.    myshell.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Search\SearchAssistant", "http://www.google.com/ie", "REG_SZ"
  709.    document.all.Item("O22").disabled = True
  710.   end if
  711.     if not err.number = 0 then
  712.      Logme.writeline Err.Description
  713.      Err.clear
  714.     end if
  715.         
  716.     if document.all.Item("O24").Checked then
  717.      kErrRep = 0
  718.     else
  719.      kErrRep = 1
  720.     end if
  721.     if not limited = 1 then
  722.     myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport", kErrRep, "REG_DWORD"
  723.     end if
  724.   if not err.number = 0 then
  725.      Logme.writeline Err.Description
  726.      Err.clear
  727.     end if
  728.         
  729.     if document.all.Item("O25").Checked then
  730.      kWebServ = 1
  731.     else
  732.      kWebServ = 0
  733.     end if
  734.     if not limited = 1 then
  735.     myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\NoInternetOpenWith", kWebServ, "REG_DWORD"
  736.     end if
  737.   if not err.number = 0 then
  738.      Logme.writeline Err.Description
  739.      Err.clear
  740.     end if
  741.         
  742.     if document.all.Item("O26").Checked then
  743.      kListShadow = 0
  744.     else
  745.      kListShadow = 1
  746.     end if
  747.     myshell.regwrite ExpAdv & "ListviewShadow", kListShadow, "REG_DWORD"
  748.     if not err.number = 0 then
  749.      Logme.writeline Err.Description
  750.      Err.clear
  751.     end if
  752.         
  753.     if document.all.Item("O27").Checked then
  754.      kListAlpha = 0
  755.     else
  756.      kListAlpha = 1
  757.     end if
  758.     myshell.regwrite ExpAdv & "ListviewAlphaSelect", kListAlpha, "REG_DWORD"
  759.     if not err.number = 0 then
  760.      Logme.writeline Err.Description
  761.      Err.clear
  762.     end if
  763.         
  764.     if document.all.Item("O28").Checked then
  765.      kWinDrag = 0
  766.     else
  767.      kWinDrag = 1
  768.     end if
  769.     myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Desktop\DragFullWindows", kWinDrag, "REG_SZ"
  770.     if not err.number = 0 then
  771.      Logme.writeline Err.Description
  772.      Err.clear
  773.     end if
  774.         
  775.     if document.all.Item("O29").Checked then
  776.      kFoldBack = 0
  777.     else
  778.      kFoldBack = 1
  779.     end if
  780.     myshell.regwrite ExpAdv & "ListViewWatermark", kFoldBack, "REG_DWORD"
  781.     if not err.number = 0 then
  782.      Logme.writeline Err.Description
  783.      Err.clear
  784.     end if
  785.         
  786.     if document.all.Item("O30").Checked and y1 = 1 then
  787.      UserPrefs(1) = Userprefs(1) - 32
  788.     elseif not document.all.Item("O30").Checked and y1 = 0 then
  789.    UserPrefs(1) = Userprefs(1) + 32
  790.     end if
  791.     if not err.number = 0 then
  792.      Logme.writeline Err.Description
  793.      Err.clear
  794.     end if
  795.         
  796.     if document.all.Item("O31").Checked and y2 = 1 then
  797.      UserPrefs(1) = Userprefs(1) - 4
  798.     elseif not document.all.Item("O31").Checked and y2 = 0 then
  799.      UserPrefs(1) = Userprefs(1) + 4
  800.     end if
  801.     if not err.number = 0 then
  802.      Logme.writeline Err.Description
  803.      Err.clear
  804.     end if
  805.         
  806.     if document.all.Item("O32").Checked and y3 = 1 then
  807.      UserPrefs(0) = Userprefs(0) - 2
  808.     elseif not document.all.Item("O32").Checked and y3 = 0 then
  809.      UserPrefs(0) = Userprefs(0) + 2
  810.     end if
  811.     if not err.number = 0 then
  812.      Logme.writeline Err.Description
  813.      Err.clear
  814.     end if
  815.         
  816.     if document.all.Item("O33").Checked and y4 = 1 then
  817.      UserPrefs(2) = Userprefs(2) - 4
  818.     elseif not document.all.Item("O33").Checked and y4 = 0 then
  819.      UserPrefs(2) = Userprefs(2) + 4
  820.     end if
  821.     if not err.number = 0 then
  822.      Logme.writeline Err.Description
  823.      Err.clear
  824.     end if
  825.         
  826.     if document.all.Item("O34").Checked and y5 = 1 then
  827.      UserPrefs(0) = Userprefs(0) - 4
  828.     elseif not document.all.Item("O34").Checked and y5 = 0 then
  829.      UserPrefs(0) = Userprefs(0) + 4
  830.     end if
  831.     if not err.number = 0 then
  832.      Logme.writeline Err.Description
  833.      Err.clear
  834.     end if
  835.         
  836.     if document.all.Item("O35").Checked and y6 = 1 then
  837.      UserPrefs(0) = Userprefs(0) - 8
  838.     elseif not document.all.Item("O35").Checked and y6 = 0 then
  839.      UserPrefs(0) = Userprefs(0) + 8
  840.     end if
  841.     if not err.number = 0 then
  842.      Logme.writeline Err.Description
  843.      Err.clear
  844.     end if
  845.         
  846.     if document.all.Item("O36").Checked and y7 = 1 then
  847.      UserPrefs(1) = Userprefs(1) - 8
  848.     elseif not document.all.Item("O36").Checked and y7 = 0 then
  849.      UserPrefs(1) = Userprefs(1) + 8
  850.     end if
  851.     if not err.number = 0 then
  852.      Logme.writeline Err.Description
  853.      Err.clear
  854.     end if
  855.         
  856.     if document.all.Item("O37").Checked then
  857.      kTask = 0
  858.     else
  859.      kTask = 1
  860.     end if
  861.     myshell.regwrite ExpAdv & "TaskbarAnimations", kTask, "REG_DWORD"
  862.     if not err.number = 0 then
  863.      Logme.writeline Err.Description
  864.      Err.clear
  865.     end if
  866.         
  867.     Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "Userprefs.reg", 2, True)
  868.     FWrite.Writeline "REGEDIT4"
  869.     FWrite.Writeline VBCR
  870.     FWrite.Writeline "[HKEY_CURRENT_USER\Control Panel\Desktop]"
  871.     FWrite.Write Chr(34) & "UserPreferencesMask" & chr(34) & "=hex:"
  872.     for n = 0 to Ubound(UserPrefs)-1
  873.          if len(Hex(UserPrefs(n))) = 1 then
  874.             UserPrefs(n) = "0" & Hex(UserPrefs(n))
  875.         else
  876.             UserPrefs(n) = Hex(UserPrefs(n))
  877.         end if
  878.         FWrite.Write UserPrefs(n) & ","
  879.     next
  880.     FWrite.Write Hex(UserPrefs(Ubound(UserPrefs)))
  881.     Fwrite.Close
  882.     ret = Myshell.Run("regedit /s " & Tempdir & "\" & "UserPrefs.reg", 0, True)
  883.     ret = MyFiles.DeleteFile(Tempdir & "\" & "UserPrefs.reg", true)
  884.     if not err.number = 0 then
  885.      Logme.writeline Err.Description
  886.      Err.clear
  887.     end if
  888.         
  889.     if document.all.Item("O12").Checked then
  890.      kVerkmit = "00,00,00,00"
  891.     else
  892.      kVerkmit = "28,00,00,00"
  893.     end if
  894.     Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "Verkmit.reg", 2, True)
  895.     FWrite.Writeline "REGEDIT4"
  896.     FWrite.Writeline VBCR
  897.     FWrite.Writeline "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]"
  898.     FWrite.Write Chr(34) & "Link" & chr(34) & "=hex:"
  899.     FWrite.Write kVerkmit
  900.     Fwrite.Close
  901.     ret = Myshell.Run("regedit /s " & Tempdir & "\" & "Verkmit.reg", 0, True)
  902.     ret = MyFiles.DeleteFile(Tempdir & "\" & "Verkmit.reg", true)
  903.     if not err.number = 0 then
  904.      Logme.writeline Err.Description
  905.      Err.clear
  906.     end if
  907.         
  908.     if document.all.Item("O13").Checked then
  909.      kBeep = "No"
  910.     else
  911.      kBeep = "Yes"
  912.     end if
  913.     myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Sound\Beep", kBeep, "REG_SZ"
  914.     myshell.regwrite "HKEY_CURRENT_USER\Control Panel\Sound\ExtendedSounds", kBeep, "REG_SZ"
  915.     if not err.number = 0 then
  916.      Logme.writeline Err.Description
  917.      Err.clear
  918.     end if
  919.         
  920.     if document.all.Item("O38").Checked and not Limited = 1 then
  921.      on error resume next
  922.      myshell.regdelete "HKEY_CLASSES_ROOT\LNKFILE\IsShortcut"
  923.      on error goto 0
  924.     else
  925.      if not Limited = 1 then
  926.        myshell.regwrite "HKEY_CLASSES_ROOT\LNKFILE\IsShortcut", "", "REG_SZ"
  927.      end if
  928.     end if
  929.     if not err.number = 0 then
  930.      Logme.writeline Err.Description
  931.      Err.clear
  932.     end if
  933.         
  934.   if document.all.Item("O39").Checked = True and document.all.Item("O39").Disabled = False then
  935.      StreamSettings(4) = 4
  936.      Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "StreamSettings.reg", 2, True)
  937.      FWrite.Writeline "REGEDIT4"
  938.      FWrite.Writeline VBCR
  939.      FWrite.Writeline "[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams]"
  940.      FWrite.Writeline Chr(34) & "Settings" & chr(34) & "=hex:08,00,00,00,04,00,00,00,01,00,00,00,00,77,7E,13,73," &_
  941.       "35,CF,11,AE,69,08,00,2B,2E,12,62,04,00,00,00,02,00,00,00,43,00,00,00"
  942.      FWrite.Writeline ""
  943.      FWrite.Writeline [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Defaults]
  944.      Fwrite.Writeline chr(34) & "{F3364BA0-65B9-11CE-A9BA-00AA004AE837}" & chr(34) & "=hex:1C,00,00,00,04,00,00,00,00,00,00,00,00,00,90,00,00,00," &_
  945.         "00,00,01,00,00,00,FF,FF,FF,FF,F0,F0,F0,F0,14,00,03,00,90,00," &_
  946.         "00,00,00,00,00,00,30,00,00,00,FD,DF,DF,FD,0F,00,04,00,20,00,10,00,28," &_
  947.         "00,3C,00,00,00,00,00,01,00,00,00,02,00,00,00,03,00,00,00,F5,00,60,00,78,00," &_
  948.           "78,00,00,00,00,00,01,00,00,00,02,00,00,00,03,00,00,00,FF,FF,FF,FF,00,00,00," &_
  949.           "00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00," &_
  950.           "00,00,00,00,00,00,00,00,00"
  951.      FWrite.Writeline ""
  952.      FWrite.Writeline ""
  953.      Fwrite.Close
  954.      ret = Myshell.Run("regedit /s " & Tempdir & "\" & "StreamSettings.reg", 0, True)
  955.      ret = MyFiles.DeleteFile(Tempdir & "\" & "StreamSettings.reg", true)
  956.      document.all.Item("O39").Disabled = True
  957.     end if
  958.     if not err.number = 0 then
  959.      Logme.writeline Err.Description
  960.      Err.clear
  961.     end if
  962.         
  963.     if document.all.Item("O40").Checked = True and document.all.Item("O40").Disabled = False then
  964.      Set FWrite = Myfiles.OpentextFile(Tempdir & "\" & "Bags.reg", 2, True)
  965.      FWrite.Writeline "REGEDIT4"
  966.      FWrite.Writeline VBCR
  967.      FWrite.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags]"
  968.      FWrite.Writeline ""
  969.      FWrite.Writeline "[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\BagMRU]"
  970.      FWrite.Writeline ""
  971.      FWrite.Writeline ""
  972.      Fwrite.Close
  973.      ret = Myshell.Run("regedit /s " & Tempdir & "\" & "Bags.reg", 0, True)
  974.      ret = MyFiles.DeleteFile(Tempdir & "\" & "Bags.reg", true)
  975.      document.all.Item("O39").Disabled = True
  976.     end if
  977.     if not err.number = 0 then
  978.      Logme.writeline Err.Description
  979.      Err.clear
  980.     end if
  981.         
  982.     if document.all.Item("O41").Checked    then
  983.      Recovery = 1
  984.     else
  985.      Recovery = 0
  986.     end if
  987.     if not limited = 1 then
  988.      myshell.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand", Recovery, "REG_DWORD"
  989.     end if
  990.   if not err.number = 0 then
  991.      Logme.writeline Err.Description
  992.      Err.clear
  993.     end if
  994.     Logme.Close
  995.     myshell.run "RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters", 1, true
  996.     
  997.     set wmi = GetObject("winmgmts:")
  998.     Prozesse = "select * from win32_process where name='explorer.exe'"
  999.     set Task = wmi.ExecQuery(Prozesse)
  1000.     for each Prozess in Task
  1001.           Prozess.Terminate 0
  1002.     next
  1003.     ret = myshell.run("Explorer.exe", 1, False)
  1004.     myshell.run "RUNDLL32.EXE USER32.DLL,UpdatePerUserSystemParameters", 1, true
  1005.     SubInitFenster
  1006.  label.value = "Hotovo - v∞tÜina nastavenφ se stane aktivnφmi a₧ po restartu poΦφtaΦe..."
  1007.  Set Logme = myfiles.GetFile(Tempdir & "\" & "Error.Log")
  1008.  if not Logme.Size = 0 then
  1009.   myshell.run "notepad " & Tempdir & "\" & "Error.Log", 1, true
  1010.   end if
  1011.   myfiles.Deletefile(Tempdir & "\" & "Error.Log")
  1012. End Sub
  1013.  
  1014. '|--------------------------------------------------------------------------------------------------|'
  1015.  
  1016. Sub SubMarkG1
  1017. if document.all.Item("G1").Checked then
  1018.   document.all.Item("O11").Checked = true
  1019.   document.all.Item("O26").Checked = true
  1020.   document.all.Item("O27").Checked = true
  1021.   document.all.Item("O28").Checked = true
  1022.   document.all.Item("O29").Checked = true
  1023.   document.all.Item("O30").Checked = true
  1024.   document.all.Item("O31").Checked = true
  1025.   document.all.Item("O32").Checked = true
  1026.   document.all.Item("O33").Checked = true
  1027.   document.all.Item("O34").Checked = true
  1028.   document.all.Item("O35").Checked = true
  1029.   document.all.Item("O36").Checked = true
  1030.   document.all.Item("O37").Checked = true
  1031.   document.all.Item("O3").Checked = true
  1032.   document.all.Item("O6").Checked = true
  1033.   document.all.Item("O6").Checked = true
  1034.   document.all.Item("O8").Checked = true
  1035.   document.all.Item("O7").Checked = true
  1036.   document.all.Item("O10").Checked = true
  1037.   document.all.Item("O14").Checked = true
  1038.   document.all.Item("O18").Checked = true
  1039.   if not document.all.Item("O9").Disabled then
  1040.     document.all.Item("O9").Checked = true
  1041.   end if
  1042. else
  1043.   document.all.Item("O11").Checked = false
  1044.   document.all.Item("O26").Checked = false
  1045.   document.all.Item("O27").Checked = false
  1046.   document.all.Item("O28").Checked = false
  1047.   document.all.Item("O29").Checked = false
  1048.   document.all.Item("O30").Checked = false
  1049.   document.all.Item("O31").Checked = false
  1050.   document.all.Item("O32").Checked = false
  1051.   document.all.Item("O33").Checked = false
  1052.   document.all.Item("O3").Checked = False
  1053.   document.all.Item("O34").Checked = false
  1054.   document.all.Item("O35").Checked = false
  1055.   document.all.Item("O36").Checked = false
  1056.   document.all.Item("O37").Checked = false
  1057.   document.all.Item("O8").Checked = False
  1058.   document.all.Item("O6").Checked = false
  1059.   document.all.Item("O6").Checked = false
  1060.   document.all.Item("O7").Checked = false
  1061.   document.all.Item("O10").Checked = false
  1062.   document.all.Item("O14").Checked = false
  1063.   document.all.Item("O18").Checked = false
  1064.   if not document.all.Item("O9").Disabled then
  1065.     document.all.Item("O9").Checked = False
  1066.   end if
  1067. end if
  1068. Submarkthechecked
  1069. End Sub
  1070.  
  1071. '|--------------------------------------------------------------------------------------------------|'
  1072.  
  1073. Sub SubMarkG2
  1074.   if document.all.Item("G2").Checked then
  1075.     document.all.Item("O1").Checked = true
  1076.     document.all.Item("O2").Checked = true
  1077.     document.all.Item("O4").Checked = true
  1078.     document.all.Item("O5").Checked = true
  1079.     if not document.all.Item("O21").Disabled then
  1080.       document.all.Item("O21").Checked = true
  1081.     end if
  1082.     if not document.all.Item("O25").Disabled then
  1083.       document.all.Item("O25").Checked = true
  1084.     end if
  1085.     document.all.Item("O12").Checked = true
  1086.     if not document.all.Item("O38").disabled then
  1087.       document.all.Item("O38").Checked = true
  1088.     end if
  1089.     if not document.all.Item("O39").disabled then
  1090.       document.all.Item("O39").Checked = true
  1091.     end if
  1092.     if not document.all.Item("O40").disabled then
  1093.       document.all.Item("O40").Checked = true
  1094.     end if
  1095.   else
  1096.     document.all.Item("O1").Checked = False
  1097.     document.all.Item("O2").Checked = False
  1098.     document.all.Item("O4").Checked = False
  1099.     document.all.Item("O5").Checked = False
  1100.     if not document.all.Item("O21").Disabled then
  1101.       document.all.Item("O21").Checked = False
  1102.     end if
  1103.     if not document.all.Item("O25").Disabled then
  1104.       document.all.Item("O25").Checked = False
  1105.     end if
  1106.     document.all.Item("O12").Checked = False
  1107.     if not document.all.Item("O38").disabled then
  1108.       document.all.Item("O38").Checked = False
  1109.     end if
  1110.     if not document.all.Item("O39").disabled then
  1111.       document.all.Item("O39").Checked = False
  1112.     end if
  1113.     if not document.all.Item("O40").disabled then
  1114.       document.all.Item("O40").Checked = False
  1115.     end if
  1116.   end if
  1117.   Submarkthechecked
  1118. end Sub
  1119.  
  1120. '|--------------------------------------------------------------------------------------------------|'
  1121.  
  1122. Sub SubMarkG3
  1123.     if document.all.Item("G3").Checked then
  1124.     document.all.Item("O15").Checked = true
  1125.     if not document.all.Item("O24").Disabled then
  1126.       document.all.Item("O24").Checked = true
  1127.     end if
  1128.     if not document.all.Item("O20").Disabled then
  1129.       document.all.Item("O20").Checked = true
  1130.     end if
  1131.     if not document.all.Item("O16").Disabled then
  1132.       document.all.Item("O16").Checked = true
  1133.     end if
  1134.     if not document.all.Item("O19").Disabled then
  1135.       document.all.Item("O19").Checked = true
  1136.     end if
  1137.     if not document.all.Item("O23").Disabled then
  1138.       document.all.Item("O23").Checked = true
  1139.     end if
  1140.     document.all.Item("O17").Checked = true
  1141.     if not document.all.Item("O22").Disabled then
  1142.       document.all.Item("O22").Checked = true
  1143.     end if
  1144.     document.all.Item("O13").Checked = true
  1145.     if not document.all.Item("O41").Disabled then
  1146.       document.all.Item("O41").Checked = true
  1147.     end if
  1148.   else
  1149.     document.all.Item("O15").Checked = False
  1150.     if not document.all.Item("O24").Disabled then
  1151.       document.all.Item("O24").Checked = False
  1152.     end if
  1153.     if not document.all.Item("O20").Disabled then
  1154.       document.all.Item("O20").Checked = False
  1155.     end if
  1156.     if not document.all.Item("O16").Disabled then
  1157.       document.all.Item("O16").Checked = False
  1158.     end if
  1159.     if not document.all.Item("O19").Disabled then
  1160.       document.all.Item("O19").Checked = False
  1161.     end if
  1162.     if not document.all.Item("O23").Disabled then
  1163.       document.all.Item("O23").Checked = False
  1164.     end if
  1165.     document.all.Item("O17").Checked = False
  1166.     if not document.all.Item("O22").disabled then
  1167.       document.all.Item("O22").Checked = False
  1168.     end if
  1169.     document.all.Item("O13").Checked = False
  1170.     if not document.all.Item("O41").disabled then
  1171.       document.all.Item("O41").Checked = False
  1172.     end if
  1173.   end if
  1174.   Submarkthechecked
  1175. end Sub
  1176.  
  1177. '|--------------------------------------------------------------------------------------------------|'
  1178.  
  1179. Sub SubQuit
  1180.     Set myshell = Nothing
  1181.     Set myFiles = Nothing
  1182.     Window.Close
  1183. End Sub
  1184.  
  1185. '|--------------------------------------------------------------------------------------------------|'
  1186.  
  1187. Sub SubMarkSelection(object)
  1188.  if document.all.Item("O" & object).Checked then
  1189.          document.all.Item("O" & object).style.backgroundColor="#99CC66"
  1190.          document.all.Item("ColorSel" & object).style.backgroundColor="#99CC66"
  1191.  else
  1192.     document.all.Item("O" & object).style.backgroundColor=""
  1193.     document.all.Item("ColorSel" & object).style.backgroundColor=""
  1194.  end if
  1195. End Sub
  1196.  
  1197. '|--------------------------------------------------------------------------------------------------|'
  1198.  
  1199. Sub Submarkthechecked
  1200. for n = 1 to 41
  1201.   If document.all.Item("O" & n).Checked then
  1202.         document.all.Item("O" & n).style.backgroundColor="#99CC66"
  1203.          document.all.Item("ColorSel" & n).style.backgroundColor="#99CC66"
  1204.          if document.all.Item("O" & n).Disabled then
  1205.                    document.all.Item("ColorSel" & n).style.Color="#888888"
  1206.          else
  1207.               document.all.Item("ColorSel" & n).style.Color="#000000"
  1208.          end if
  1209.  else
  1210.     document.all.Item("O" & n).style.backgroundColor=""
  1211.     document.all.Item("ColorSel" & n).style.backgroundColor=""
  1212.     if document.all.Item("O" & n).Disabled then
  1213.            document.all.Item("ColorSel" & n).style.Color="#888888"
  1214.          else
  1215.            document.all.Item("ColorSel" & n).style.Color="#000000"
  1216.          end if
  1217.  end if
  1218. next
  1219. End Sub
  1220.  
  1221. '|--------------------------------------------------------------------------------------------------|'
  1222.  
  1223. </SCRIPT>
  1224.   </HEAD>
  1225.     <BODY onload="SubInitFenster" scroll="yes">
  1226.     <Form>
  1227.     <TABLE border="0"> 
  1228.     <TBODY>
  1229.       <TR> 
  1230.         <td>
  1231.       <FIELDSET>
  1232.        <LEGEND>
  1233.        <DIV><INPUT Type=checkbox name="G1" Title="Styly pro vizualizaci" onClick="SubMarkG1"><b> Nastavenφ styl∙ pro optimßlnφ v²kon</b></DIV>
  1234.           </LEGEND>
  1235.           <DIV ID="ColorSel11"><INPUT Type=checkbox name="O11" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\ThemeActive" onClick="SubMarkSelection('11')"> Povolit klasickΘ nastavenφ</DIV>
  1236.           <DIV ID="ColorSel3"><INPUT Type=checkbox name="O3" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\CabinetState\Use Search Asst" onClick="SubMarkSelection('3')"> Povolit klasickΘ vyhledßvßnφ</DIV>
  1237.           <DIV ID="ColorSel8"><INPUT Type=checkbox name="O8" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ShellState" onClick="SubMarkSelection('8')"> Povolit klasickou nabφdku Start</DIV>
  1238.           <DIV ID="ColorSel9"><INPUT Type=checkbox name="O9" Title="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon\LogonType" onClick="SubMarkSelection('9')"> Povolit klasickΘ p°ihlßÜenφ do Windows</DIV>
  1239.           <DIV ID="ColorSel26"><INPUT Type=checkbox name="O26" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewShadow" onClick="SubMarkSelection('26')"> Nepr∙hlednΘ pozadφ pro popisky ikon na ploÜe</DIV>
  1240.           <DIV ID="ColorSel27"><INPUT Type=checkbox name="O27" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewAlphaSelect" onClick="SubMarkSelection('27')"> Nepr∙hledn² obdΘlnφk pro v²b∞r polo₧ky</DIV>
  1241.           <DIV ID="ColorSel28"><INPUT Type=checkbox name="O28" Title="HKEY_CURRENT_USER\Control Panel\Desktop\DragFullWindows" onClick="SubMarkSelection('28')"> Nezobrazovat obsah okna b∞hem jeho p°etahovßnφ</DIV>
  1242.           <DIV ID="ColorSel29"><INPUT Type=checkbox name="O29" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ListviewWatermark" onClick="SubMarkSelection('29')"> Nepovolit odliÜnΘ pozadφ u okna s obsahem slo₧ky</DIV>
  1243.           <DIV ID="ColorSel30"><INPUT Type=checkbox name="O30" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 2" onClick="SubMarkSelection('30')"> Nezobrazovat stφn ukazatele myÜi</DIV>
  1244.           <DIV ID="ColorSel31"><INPUT Type=checkbox name="O31" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 2" onClick="SubMarkSelection('31')"> Nechat zobrazeny polo₧ky menu po jejich v²b∞ru</DIV>
  1245.           <DIV ID="ColorSel32"><INPUT Type=checkbox name="O32" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 1" onClick="SubMarkSelection('32')"> Nezobrazovat (skr²t) polo₧ky menu</DIV>
  1246.           <DIV ID="ColorSel33"><INPUT Type=checkbox name="O33" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 3" onClick="SubMarkSelection('33')"> Nezobrazovat v menu stφny</DIV>
  1247.           <DIV ID="ColorSel34"><INPUT Type=checkbox name="O34" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 1" onClick="SubMarkSelection('34')"> Nezobrazovat otev°enΘ prvky typu Pole se seznamem</DIV>
  1248.           <DIV ID="ColorSel35"><INPUT Type=checkbox name="O35" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 1" onClick="SubMarkSelection('35')"> Nepou₧φvat optimalizaci pro zobrazenφ posuvnφku v prvku typu Seznam</DIV>
  1249.           <DIV ID="ColorSel36"><INPUT Type=checkbox name="O36" Title="HKEY_CURRENT_USER\Control Panel\Desktop\UserPreferencesMask - Byte 2" onClick="SubMarkSelection('36')"> Nezobrazovat (skr²t) nßpov∞dn² text</DIV>
  1250.           <DIV ID="ColorSel37"><INPUT Type=checkbox name="O37" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\TaskbarAnimations" onClick="SubMarkSelection('37')"> Nepou₧φvat animace na Hlavnφm panelu</DIV>
  1251.           <DIV ID="ColorSel6"><INPUT Type=checkbox name="O6" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EnableBalloonTips" onClick="SubMarkSelection('6')"> Nezobrazovat informaΦnφ bubliny</DIV>
  1252.           <DIV ID="ColorSel7"><INPUT Type=checkbox name="O7" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\IntelliMenus" onClick="SubMarkSelection('7')"> Nepou₧φvat individußlnφ nabφdky</DIV>
  1253.           <DIV ID="ColorSel10"><INPUT Type=checkbox name="O10" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\WebView" onClick="SubMarkSelection('10')"> Deaktivovat ve slo₧kßch panel ObecnΘ ·koly</DIV>
  1254.           <DIV ID="ColorSel14"><INPUT Type=checkbox name="O14" Title="HKEY_CURRENT_USER\Control Panel\Desktop\WindowMetrics\MinAnimate" onClick="SubMarkSelection('14')"> Vypnout animaci okna p°i jeho minimalizaci</DIV>
  1255.           <DIV ID="ColorSel18"><INPUT Type=checkbox name="O18" Title="HKEY_CURRENT_USER\Control Panel\Desktop\FontSmoothing" onClick="SubMarkSelection('18')"> Povolit vyhlazovßnφ pφsem Cleartype (pouze p°i pou₧φvßnφ monitor∙ TFT)</DIV>
  1256.           </FIELDSET>
  1257.           </td>
  1258.           <td>
  1259.           <FIELDSET>
  1260.           <LEGEND>
  1261.           <DIV><INPUT Type=checkbox name="G2" Title="RozÜφ°enφ Pr∙zkumnφka" onClick="SubMarkG2"><b> VylepÜenφ funkΦnosti programu Pr∙zkumnφk</b></DIV>
  1262.           </LEGEND>
  1263.           <DIV ID="ColorSel1"><INPUT Type=checkbox name="O1" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt" onClick="SubMarkSelection('1')"> Zobrazit p°φpony u vÜech typ∙ soubor∙</DIV>
  1264.           <DIV ID="ColorSel2"><INPUT Type=checkbox name="O2" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden" onClick="SubMarkSelection('2')"> Zobrazit skrytΘ soubory a slo₧ky</DIV>
  1265.           <DIV ID="ColorSel4"><INPUT Type=checkbox name="O4" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden" onClick="SubMarkSelection('4')"> Zobrazit systΘmovΘ soubory</DIV>
  1266.           <DIV ID="ColorSel5"><INPUT Type=checkbox name="O5" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\WebViewBarricade" onClick="SubMarkSelection('5')"> Zobrazit obsah systΘmov²ch slo₧ek</DIV>
  1267.           <DIV ID="ColorSel21"><INPUT Type=checkbox name="O21" Title="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa\ForceGuest" onClick="SubMarkSelection('21')"> Nepou₧φvat zjednoduÜenΘ sdφlenφ soubor∙ (pouze Windows XP Professional)</DIV>
  1268.           <DIV ID="ColorSel25"><INPUT Type=checkbox name="O25" Title="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\system\NoInternetOpenWith" onClick="SubMarkSelection('25')"> Nepou₧φvat vyhledßvßnφ vhodn²ch program∙ na internetu pro otev°enφ soubor∙ s neznßmou p°iponou</DIV>
  1269.           <DIV ID="ColorSel12"><INPUT Type=checkbox name="O12" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Link" onClick="SubMarkSelection('12')"> Nezobrazovat u zßstupc∙ text "Zßstupce -"</DIV>
  1270.           <DIV ID="ColorSel38"><INPUT Type=checkbox name="O38" Title="HKEY_CLASSES_ROOT\LNKFILE\IsShortcut" onClick="SubMarkSelection('38')"> Odstranit u ikonky zßstupc∙ znak Üipky</DIV>
  1271.           <DIV ID="ColorSel39"><INPUT Type=checkbox name="O39" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\Settings - Byte 5" onClick="SubMarkSelection('39')"> Nastavit jako standardnφ typ zobrazenφ Podrobnosti</DIV>            
  1272.           <DIV ID="ColorSel40"><INPUT Type=checkbox name="O40" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\Bags\" onClick="SubMarkSelection('40')"> Zobrazenφ vÜech slo₧ek nastavit na standardnφ</DIV>
  1273.           </FIELDSET>
  1274.           <FIELDSET>
  1275.           <LEGEND>
  1276.           <DIV><INPUT Type=checkbox name="G3" Title="DalÜφ" onClick="SubMarkG3"><b> Konfigurace dalÜφch funkcφ</b></DIV>
  1277.           </LEGEND>
  1278.           <DIV ID="ColorSel15"><INPUT Type=checkbox name="O15" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\CleanupWiz\NoRun" onClick="SubMarkSelection('15')"> Deaktivovat pr∙vodce ΦiÜt∞nφm pracovnφ plochy</DIV>
  1279.           <DIV ID="ColorSel24"><INPUT Type=checkbox name="O24" Title="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\PCHealth\ErrorReporting\DoReport" onClick="SubMarkSelection('24')"> Deaktivovat ohlaÜovßnφ chyb p°i pßdu operaΦnφho systΘmu</DIV>
  1280.           <DIV ID="ColorSel20"><INPUT Type=checkbox name="O20" Title="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows\NoPopupsOnBoot" onClick="SubMarkSelection('20')"> Nezobrazovat hlßÜenφ o potφ₧φch se za°φzenφm p°i startu operaΦnφho systΘmu</DIV>
  1281.           <DIV ID="ColorSel16"><INPUT Type=checkbox name="O16" Title="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLowDiskSpaceChecks" onClick="SubMarkSelection('16')"> \Nevarovat p°i nedostatku mφsta na disku</DIV>
  1282.           <DIV ID="ColorSel19"><INPUT Type=checkbox name="O19" Title="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_NONPRESENT_DEVICES" onClick="SubMarkSelection('19')"> Zobrazit ve Sprßvci za°φzenφ i skrytß za°φzenφ</DIV>
  1283.           <DIV ID="ColorSel23"><INPUT Type=checkbox name="O23" Title="HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\DEVMGR_SHOW_DETAILS" onClick="SubMarkSelection('23')"> ZObrazit ve Sprßvci za°φzenφ podrobnosti o jednotliv²ch za°φzenφch</DIV>
  1284.           <DIV ID="ColorSel17"><INPUT Type=checkbox name="O17" Title="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Toolbar\LinksFolderName" onClick="SubMarkSelection('17')"> Odstranit z Oblφben²ch polo₧ek Internet Exploreru slo₧ku Odkazy</DIV>
  1285.           <DIV ID="ColorSel22"><INPUT Type=checkbox name="O22" Title="HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Search Page" onClick="SubMarkSelection('22')"> Nastavit jako standardnφ vyhledßvaΦ v Internet Exploreru Google.com</DIV>
  1286.           <DIV ID="ColorSel13"><INPUT Type=checkbox name="O13" Title="HKEY_CURRENT_USER\Control Panel\Sound\Beep" onClick="SubMarkSelection('13')"> Deaktivovat reproduktor v poΦφtaΦovΘ sk°φni</DIV>
  1287.           <DIV ID="ColorSel41"><INPUT Type=checkbox name="O41" Title="HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Setup\RecoveryConsole\SetCommand" onClick="SubMarkSelection('41')"> Umo₧nit v Konzole pro zotavenφ pou₧itφ p°φkazu SET</DIV>
  1288.         </FIELDSET>
  1289.       </td>
  1290.       </tr>
  1291.     </TBODY>
  1292.   </TABLE>
  1293.   </form>
  1294.   <INPUT Type=button value="Ulo₧it nastavenφ" name=button1 size=52 onClick="SubSet">
  1295.   <INPUT Type=button value="Zobrazit aktußlnφ konfiguraci" name=button3 size=52 onClick="SubInitFenster">
  1296.   <INPUT Type=button value="Konec" name=button2 size=32 onClick="SubQuit"><br><br>
  1297.   <Input ID=label Type=text Value="" Size=100% style="Border:none;background-color:Buttonface;color:#006600;" READONLY>         
  1298.  </BODY>
  1299. </HTML>
  1300.